function [ red1Cruce, red2Cruce ] = cruceunpunto ( red1, red2 )
%Metodo de crossover "Cruce de un punto"
%Se elige un locus al azar y se intercambian los alelos, a partir de ese
%locus.

    c = cols(red1);
    locus = fix((rand(1) * (c-1))+1);
    
    red1Cruce = [red1(1,1:locus) red2(1,locus+1:end)];
    red2Cruce = [red2(1,1:locus) red1(1,locus+1:end)];

end

